home *** CD-ROM | disk | FTP | other *** search
/ The Vision / The Vision.iso / setup / title.mst < prev    next >
Encoding:
Text File  |  1994-06-09  |  17.2 KB  |  523 lines
  1. '**************************************************************************
  2. '*
  3. '* TITLE.MST - Viewer Runtime Setup Script
  4. '*
  5. '* CUSTOMIZING TITLE.MST
  6. '*
  7. '* For a simple Setup routine, you just need to assign values to the 
  8. '* series of variables following the heading "Setup Variables". This
  9. '* script also provides for the following more-advanced options, which
  10. '* are supported by subroutines located later in this script:
  11. '*
  12. '* Option                                         See Subroutine
  13. '* ------------------------------------------     ---------------------
  14. '* Install more than one .MVB file                ModifyViewerIni
  15. '* Install Help title                             ModifyViewerIni
  16. '* Install custom DLLs                            ModifyViewerIni
  17. '* Install multiple Program Manager items         ModifyProgramManager
  18. '* Display a custom icon with the ProgMan item    ModifyProgramManager
  19. '* Install custom fonts                           RegisterCustomFonts
  20. '* Install Video for Windows runtime files        RegisterDrivers
  21. '*
  22. '* Each customization note starts with the heading CUSTOMIZATION.
  23. '*
  24. '**************************************************************************
  25.     
  26.     '' Global variables
  27.  
  28.     GLOBAL TitleShortName$
  29.     GLOBAL TitleLongName$
  30.     GLOBAL MVBFileName$
  31.     GLOBAL PromptForPath%
  32.     GLOBAL DefaultPath$
  33.     GLOBAL ProgManGroup$
  34.     GLOBAL ProgManItem$
  35.  
  36.     '' ****************************************************************
  37.     '' ** Setup Variables
  38.     '' ****************************************************************
  39.  
  40.     '' Set the following string to a short form of the title name
  41.     '' (for example, "Gallery")
  42.     
  43.     TitleShortName$ = "Vision"
  44.     
  45.     '' Set the following string to a long form of the title name
  46.     '' (for example, "Viewer 2.0 Gallery")
  47.     
  48.     TitleLongName$ = "Vision"
  49.         
  50.     '' Set the following variable to the name of the MVB file, without 
  51.     '' the filename extension (for example, "GALLERY")
  52.         
  53.     MVBFileName$ = "Vision"
  54.         
  55.     '' The following variable determines whether Setup prompts the user
  56.     '' to specify a directory in which to install title files. (Files
  57.     '' to be installed on the hard disk must be listed in the TITLE.INF 
  58.     '' file under the [Installed Title Files] section.) Specify one of
  59.     '' the following values:
  60.     ''
  61.     '' 0    Install title files in the Windows directory (default setting).
  62.     ''      This is an appropriate setting if you have a limited number
  63.     ''      of files to copy (for example, a single custom icon or DLL).
  64.     ''
  65.     '' 1    Display a dialog box to prompt the user for a directory in 
  66.     ''      which to install files
  67.         
  68.     PromptForPath% = 0
  69.         
  70.     '' If you have specified 1 in PromptForPath%, set the following 
  71.     '' variable to the default path that will be displayed in the dialog
  72.     '' box (for example, "C:\GALLERY").
  73.         
  74.     DefaultPath$ = "c:\Vision"
  75.     
  76.     '' Set the following variable to the name of the program manager 
  77.     '' group you would like to create (for example, "Viewer 2.0 Gallery")
  78.         
  79.     ProgManGroup$ = "Vision"
  80.     
  81.     '' Set the following variable to the caption of the program manager 
  82.     '' item for your title (for example, "Gallery")
  83.         
  84.     ProgManItem$ = "Vision"
  85.     
  86.  
  87.     '***********************************************************************
  88.     '** Mainline
  89.     '***********************************************************************
  90.  
  91.     GLOBAL CUIDLL$
  92.  
  93.     '' Include files
  94.     '$INCLUDE 'setupapi.inc'
  95.     
  96.     '' Custom UI dll
  97.     CUIDLL$ = "mscuistf.dll"
  98.     
  99.     '' Dialog ID's
  100.     CONST DESTPATH      = 1000
  101.     CONST APPHELP       = 2000
  102.     CONST TOOBIG        = 3000
  103.     CONST BADPATH       = 4000
  104.     CONST SUCCESS       = 5000
  105.     
  106.     '' Bitmap ID
  107.     CONST LOGO = 1
  108.     
  109.     '' Functions and subroutines
  110.     DECLARE FUNCTION AddFont LIB "mscuistf.dll" (szFont$, szName$) AS INTEGER
  111.     DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  112.     DECLARE FUNCTION GetTitleDir (szDefault$) AS STRING
  113.     DECLARE FUNCTION CopyFiles(szTitleDir$) AS INTEGER
  114.     DECLARE SUB RegisterFont(fontfile$, fontname$)
  115.     DECLARE SUB ModifyViewerIni
  116.     DECLARE SUB RegisterCustomFonts
  117.     DECLARE SUB ModifyProgramManager
  118.     DECLARE SUB ShowSuccess
  119.     DECLARE SUB RegisterDrivers
  120.     DECLARE SUB DoNoEvil
  121.     DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  122.     DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  123.     DECLARE SUB Reboot LIB "iniupd.dll"
  124.     DECLARE fUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  125.     
  126.     '' The following statement turns size checking off. Set it to scmOnFatal 
  127.     '' to enable size checking, where Setup will compare the disk file size 
  128.     '' with the INF file size and report an error if they are not the same.
  129.     
  130.     i% = SetSizeCheckMode(scmOff)
  131.     
  132.     '' Set the title and banner bitmap. You must rebuild MSCUISTF.DLL to 
  133.     '' alter the banner bitmap.
  134.     
  135.     SetTitle "Vision"
  136.     SetBitmap CUIDLL$, LOGO 
  137.     
  138.     '' Read in the INF file.
  139.     
  140.  
  141.     ReadInfFile GetSymbolValue("STF_CWDDIR") + "TITLE.INF"
  142.     
  143.     '' Decide where to put title files
  144.     IF PromptForPath% = 1 THEN
  145.         szTitleDir$ = GetTitleDir(DefaultPath$)
  146.         IF szTitleDir$ = "" THEN
  147.             GOTO QUIT
  148.         ENDIF
  149.     ELSE
  150.         szTitleDir$ = GetWindowsDir()
  151.     ENDIF   
  152.     
  153.     '' Copy files
  154.     IF CopyFiles(szTitleDir$) = 0 THEN
  155.         GOTO QUIT
  156.     ENDIF
  157.  
  158.     '' Create the MVIEWER2.EXE MVB association 
  159.     CreateIniKeyValue "WIN.INI", "Extensions", "MVB", "mviewer2.exe", cmoNone
  160.  
  161.     '' Register in VIEWER.INI
  162.     ModifyViewerIni
  163.  
  164.     '' Register custom fonts
  165.     RegisterCustomFonts
  166.  
  167.     '' Register drivers
  168.     RegisterDrivers
  169.     
  170.     '' Modify Program Manager
  171.     ModifyProgramManager    
  172.     
  173.     '' Success dialog
  174.     ShowSuccess
  175.     
  176.     '' Now start the title
  177.  
  178.     '' RUN "mviewer2.exe " + MVBFileName$ + ".MVB", NOWAIT
  179.  
  180.     ''    j% = DoMsgBox("Be sure to Install Video for Windows 1.1!",TitleLongName$,0)
  181.  
  182.     ''  j% = DoMsgBox("Restart Windows before playing!",TitleLongName$,0)
  183.  
  184. QUIT:
  185.     
  186.     END
  187.     
  188.  
  189. '*************************************************************************
  190. '** Purpose:
  191. '**     Prompts the user for a path for the title files
  192. '** Arguments:
  193. '**     szDefault$ - default path
  194. '** Returns:
  195. '**     New valid path name, or "" if the user quit.
  196. '*************************************************************************
  197.  
  198. FUNCTION GetTitleDir (szDefault$) STATIC AS STRING
  199.  
  200.     SetSymbolValue "String", TitleShortName$
  201.     SetSymbolValue "EditTextIn", szDefault$
  202.     SetSymbolValue "EditFocus", "ALL"
  203.  
  204.     GETPATH:
  205.  
  206.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, "FHelpDlgProc")
  207.  
  208.     IF sz$ = "CONTINUE" THEN
  209.         szTitleDir$ = GetSymbolValue("EditTextOut")
  210.         IF IsDirWritable(szTitleDir$) = 0 THEN
  211.  
  212.             BADPATH:
  213.  
  214.             sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfoDlgProc", 0, "")
  215.             IF sz$ = "REACTIVATE" THEN
  216.                 GOTO BADPATH
  217.             END IF
  218.             UIPop 1
  219.             GOTO GETPATH
  220.         END IF
  221.         UIPop 1
  222.         CreateDir szTitleDir$, cmoNone
  223.  
  224.     ELSEIF sz$ = "REACTIVATE" THEN
  225.         GOTO GETPATH
  226.  
  227.     ELSE
  228.         szTitleDir$ = ""
  229.  
  230.     END IF
  231.  
  232.     GetTitleDir = szTitleDir$
  233.  
  234. END FUNCTION
  235.  
  236.  
  237. '*************************************************************************
  238. '** Purpose:
  239. '**     Copies the files in the INF file
  240. '** Arguments:
  241. '**     szTitleDir$ - destination directory for the title files
  242. '** Returns
  243. '**     1 if files were copied, 0 otherwise
  244. '*************************************************************************
  245.  
  246. FUNCTION CopyFiles(szTitleDir$) STATIC AS INTEGER
  247.  
  248.     '' Add all system files to the copy list
  249.     AddSectionFilesToCopyList "System Files", GetSymbolValue("STF_SRCDIR") + "setup\", GetWindowsSysDir()
  250.     
  251.     '' Add all of the title files to the copy list
  252.     AddSectionFilesToCopyList "Installed Title Files", GetSymbolValue("STF_SRCDIR"), szTitleDir$
  253.     
  254.     '' Check size
  255.     szExtras$ = "Extra"
  256.     szCosts$ = "Costs"
  257.     szNeededs$ = "Neededs"
  258.     FOR i% = 1 TO 26 STEP 1
  259.         AddListItem szExtras$, "0"
  260.     NEXT i%
  261.     
  262.     '' We assume that VIEWER.INI will take another 4K
  263.     ReplaceListItem szExtras$, ASC(MID$(GetWindowsDir(), 1, 1)) - ASC("A") + 1, STR$(4096)
  264.     
  265.     '' Get amount of space required
  266.     StillNeed& = GetCopyListCost(szExtras$, szCosts$, szNeededs$)
  267.     
  268.     '' Put up a message if there is not enough space
  269.     FOR i% = 1 TO 26 STEP 1
  270.         IF VAL(GetListItem(szNeededs$, i%)) > 0 THEN
  271.     
  272.             SetSymbolValue "String1", LTRIM$(STR$(VAL(GetListItem(szCosts$, i%)) / 1024))
  273.             SetSymbolValue "String2", CHR$(i% - 1 + ASC("A"))
  274.     
  275.             TOOBIG:
  276.     
  277.             sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfoDlgProc", 0, "")
  278.             IF sz$ = "REACTIVATE" THEN
  279.                 GOTO TOOBIG
  280.             END IF
  281.             UIPop 1
  282.             CopyFiles = 0
  283.             GOTO DONTCOPY
  284.         END IF
  285.     NEXT i%
  286.     
  287.     '' Copy the files
  288.     CopyFilesInCopyList
  289.     
  290.     CopyFiles = 1
  291.  
  292. DONTCOPY:
  293.  
  294. END FUNCTION
  295.  
  296.  
  297. '*************************************************************************
  298. '** Purpose:
  299. '**     Puts up a success dialog
  300. '*************************************************************************
  301.  
  302. SUB ShowSuccess STATIC
  303.  
  304.     SUCCESS:
  305.     
  306.     SetSymbolValue "String1", TitleShortName$
  307.     sz$ = UIStartDlg(CUIDLL$, SUCCESS, "FInfoDlgProc", 0, "")
  308.     IF sz$ = "REACTIVATE" THEN
  309.         GOTO SUCCESS
  310.     END IF
  311.     UIPop 1
  312.     
  313. END SUB
  314. '*************************************************************************
  315. '** Purpose:
  316. '**     Assuage the User's fear of system destruction
  317. '*************************************************************************
  318.  
  319. SUB DoNoEvil STATIC
  320.  
  321. j% = DoMsgBox("This installation will not harm your system!", TitleLongName$, 0)
  322.     
  323. END SUB
  324.  
  325.  
  326. '*************************************************************************
  327. '** Purpose:
  328. '**     Appends a file name to the end of a directory path,
  329. '**     inserting a backslash character as needed.
  330. '** Arguments:
  331. '**     szDir$  - full directory path (with optional ending "\")
  332. '**     szFile$ - filename to append to directory
  333. '** Returns:
  334. '**     Resulting fully qualified path name.
  335. '*************************************************************************
  336.  
  337. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  338.     IF szDir$ = "" THEN
  339.         MakePath = szFile$
  340.     ELSEIF szFile$ = "" THEN
  341.         MakePath = szDir$
  342.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  343.         MakePath = szDir$ + szFile$
  344.     ELSE
  345.         MakePath = szDir$ + "\" + szFile$
  346.     END IF
  347. END FUNCTION
  348.  
  349.  
  350. '*************************************************************************
  351. '** Purpose:
  352. '**     Registers a font.
  353. '** Arguments:
  354. '**     fontfile$ - font filename
  355. '**     fontname$ - font name.
  356. '*************************************************************************
  357.  
  358. SUB RegisterFont(fontfile$, fontname$) STATIC
  359.  
  360.     '' A simple error catching wrapper around AddFont, which is a 'C' routine in MSCUISTF.DLL
  361.  
  362.     IF AddFont(fontfile$, fontname$) = -1 THEN
  363.     j% = DoMsgBox("Could not install " + fontfile$ + " font.", "Viewer Font Installation", 0)
  364.     ENDIF
  365.  
  366. END SUB
  367.  
  368.  
  369. '*************************************************************************
  370. '** Purpose:
  371. '**     Registers title in VIEWER.INI
  372. '*************************************************************************
  373.  
  374. SUB ModifyViewerIni STATIC
  375.  
  376.     '' Get the VIEWER.INI file
  377.     
  378.     szIni$ = MakePath(GetWindowsDir(), "VIEWER.INI")
  379.  
  380.     '' First register the title file, setting the Name and Path entries. 
  381.     '' We assume that the MVB file is the same directory as SETUP.EXE.
  382.     ''
  383.     '' CUSTOMIZATION: If you're installing multiple MVB files, copy the
  384.     '' following two statements for each additional file, substituting
  385.     '' the appropriate long name and MVB filename for the TitleLongName$
  386.     '' and MVBFileName$ variables.
  387.     
  388.     CreateIniKeyValue szIni$, MVBFileName$, "Name", TitleLongName$, cmoOverwrite
  389.     CreateIniKeyValue szIni$, MVBFileName$, "Path", GetSymbolValue("STF_SRCDIR"), cmoOverwrite
  390.     
  391.     '' Now we have to register the MVB file in the [FILES] section, so 
  392.     '' Viewer can find files that are not on the path and display a 
  393.     '' special message when a file is not found.
  394.  
  395.     CreateIniKeyValue szIni$, "FILES", MVBFileName$ + ".MVB", GetSymbolValue("STF_SRCDIR") + "," + "Please insert the " + TitleLongName$ + " disk.", cmoOverwrite
  396.  
  397.     '' CUSTOMIZATION: If you're installing a Help title or any custom DLLs,
  398.     '' you should copy the preceding statement for each extra title or DLL.
  399.     ''
  400.     '' Example for installing an extra title:
  401.     ''
  402.     ''    CreateIniKeyValue szIni$, "FILES", "GALHELP.MVB", GetSymbolValue("STF_SRCDIR") + "," + "Please insert the Viewer 2.0 Gallery disk.", cmoOverwrite
  403.     ''
  404.     '' Example for installing a custom DLL:
  405.     ''
  406.     ''    CreateIniKeyValue szIni$, "FILES", "GALLERY.DLL", GetSymbolValue("STF_SRCDIR") + "," + "A required file is missing. Please reinstall the Viewer Gallery.", cmoOverwrite
  407.  
  408. END SUB
  409.  
  410.  
  411. '*************************************************************************
  412. '** Purpose:
  413. '**     Creates program manager entries for the title
  414. '*************************************************************************
  415.  
  416. SUB ModifyProgramManager STATIC
  417.  
  418.     '' Create the program manager group
  419.  
  420.     szGork$ = GetSymbolValue("STF_SRCDIR")
  421.  
  422.     '' j% = DoMsgBox(szGork$, "Path Name", 0)
  423.  
  424.     CreateProgmanGroup ProgmanGroup$, "", cmoNone
  425.     ShowProgmanGroup ProgmanGroup$, 1, cmoNone
  426.     
  427.     '' Create an entry for the title
  428.      
  429.     '' [no icon] CreateProgmanItem ProgmanGroup$, ProgmanItem$, "mviewer2.exe " + MakePath(GetSymbolValue("STF_SRCDIR"), MVBFileName$ + ".MVB"), ",,,,szGork$", cmoOverwrite
  430.     
  431.     '' CUSTOMIZATION: 
  432.     ''
  433.     '' To create additional Program Manager items, copy the preceding 
  434.     '' statement for each additional item, substituting the appropriate
  435.     '' name for the MVBFileName$ variable.
  436.     ''
  437.     '' To display a custom icon with the Program Manager item, specify
  438.     '' the icon filename with the fourth parameter (this parameter is 
  439.     '' currently an empty string, ""). The following example specifies 
  440.         '' an icon with the same filename as the .MVB file:
  441.     ''
  442.     CreateProgmanItem ProgmanGroup$, ProgmanItem$, "mviewer2.exe " + MakePath(GetSymbolValue("STF_SRCDIR"), MVBFileName$ + ".MVB"), MakePath(GetSymbolValue("STF_SRCDIR"), MVBFileName$ + ".ICO")+",0,0,0,"+szGork$, cmoOverwrite
  443.  
  444. END SUB
  445.  
  446.  
  447. '*************************************************************************
  448. '** Purpose:
  449. '**     Registers custom fonts with Windows.
  450. '*************************************************************************
  451.  
  452. SUB RegisterCustomFonts STATIC
  453.  
  454.     '' CUSTOMIZATION: If you install custom fonts, then add statements
  455.     '' in this routine to register the fonts with the current Windows 
  456.     '' session and to add them to the WIN.INI [Fonts] section. 
  457.     ''
  458.     '' Note that TrueType fonts can only be installed in Windows 3.1.
  459.     '' RegisterFont automatically creates the required .FOT file for 
  460.     '' TrueType fonts.
  461.     ''    
  462.     '' The following example registers a font residing in MISTRAL.TTF
  463.     '' and installs the font with the name Mistral (True Type):
  464.     '' 
  465.     ''     RegisterFont "mistral.ttf", "Mistral (TrueType)"
  466.     ''
  467.  
  468. END SUB
  469.  
  470.  
  471. '*************************************************************************
  472. '** Purpose:
  473. '**     Registers Windows drivers
  474. '*************************************************************************
  475.  
  476. SUB RegisterDrivers STATIC
  477.  
  478. '' CUSTOMIZATION: Video for Windows is not a standard component of
  479. '' Windows 3.1. If your title uses video, proceed as follows.
  480. ''
  481. '' 1) Add the following files to the [System Files] section of the INF file:
  482. ''
  483. ''    dispdib.dll
  484. ''    msvideo.dll
  485. ''    indeo.drv
  486. ''    mciavi.drv
  487. ''    msvidc.drv
  488. ''
  489. '' 2) Add the above files to your release directory. US versions can be 
  490. ''    found in the \SYSTEM subdirectory of your Viewer disc. French and
  491. ''    German versions were not available at ship time. Please contact 
  492. ''    Microsoft or check the Multimedia Viewer section on the Microsoft
  493. ''    Compuserve Forum for further details.
  494. ''
  495. '' 3) Uncomment the following lines:
  496. '' 
  497.  
  498.     WinDir$ = GetWindowsDir()
  499.  
  500.     IF VflatdPresent() = 0 THEN
  501.        CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  502.     END IF
  503.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  504.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  505.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "indeov.drv", cmoOverwrite
  506.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  507.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "indeov.drv", cmoOverwrite
  508.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "indeov.drv", cmoOverwrite
  509.     CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  510.     CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  511.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  512.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  513.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  514.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  515.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  516.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  517.     Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  518.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  519.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  520.     Run ("profdisp.exe")   
  521.  
  522. END SUB
  523.